inherited FPesquisaChequesEmitidos: TFPesquisaChequesEmitidos
  Left = 297
  Top = 182
  Caption = 'Pesquisa Cheques Emitidos'
  ClientHeight = 416
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel2: TPanel
    inherited BtnLimpar: TBitBtn
      OnClick = BtnLimparClick
    end
    inherited BtnImprimir: TBitBtn
      OnClick = BtnImprimirClick
    end
    inherited BtnSelecionar: TBitBtn
      Tag = 5
      Enabled = False
    end
  end
  inherited Panel1: TPanel
    Height = 375
    object Label2: TLabel [0]
      Left = 4
      Top = 79
      Width = 28
      Height = 13
      Caption = 'Conta'
    end
    object Label1: TLabel [1]
      Left = 4
      Top = 115
      Width = 77
      Height = 13
      Caption = 'N'#250'mero Cheque'
    end
    object Label3: TLabel [2]
      Left = 55
      Top = 133
      Width = 6
      Height = 13
      Caption = 'a'
    end
    object Label9: TLabel [3]
      Left = 131
      Top = 115
      Width = 85
      Height = 13
      Caption = 'Data Lan'#231'amento'
    end
    object Label6: TLabel [4]
      Left = 221
      Top = 133
      Width = 6
      Height = 13
      Caption = 'a'
    end
    object Label10: TLabel [5]
      Left = 4
      Top = 212
      Width = 46
      Height = 13
      Caption = 'Empresas'
    end
    object Label5: TLabel [6]
      Left = 4
      Top = 154
      Width = 63
      Height = 13
      Caption = 'Data Cheque'
    end
    object Label7: TLabel [7]
      Left = 95
      Top = 173
      Width = 6
      Height = 13
      Caption = 'a'
    end
    inherited DBGrid1: TDBGrid
      Top = 268
      Height = 86
      TabOrder = 9
      Columns = <
        item
          Expanded = False
          FieldName = 'CONTA'
          Title.Caption = 'Conta'
          Width = 181
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CHEQUE'
          Title.Caption = 'Cheque'
          Width = 51
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'NOMINAL'
          Title.Caption = 'Nominal'
          Width = 78
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'VALOR'
          Title.Caption = 'Valor'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'DATALANCAMENTO'
          Title.Caption = 'Data Lan'#231'amento'
          Width = 94
          Visible = True
        end>
    end
    inherited Panel3: TPanel
      Top = 354
      TabOrder = 10
    end
    object DBLCBConta: TDBLookupComboBox
      Left = 4
      Top = 93
      Width = 390
      Height = 21
      KeyField = 'CONT_CORR_CODIGO'
      ListField = 'CONT_CORR_DESCRICAO'
      ListSource = DSConta
      TabOrder = 0
      OnKeyDown = DBLCBContaKeyDown
    end
    object EChIni: TEdit
      Left = 4
      Top = 129
      Width = 49
      Height = 21
      MaxLength = 6
      TabOrder = 1
    end
    object EChFim: TEdit
      Left = 66
      Top = 129
      Width = 49
      Height = 21
      MaxLength = 6
      TabOrder = 2
    end
    object CkBTodasEmpresas: TCheckBox
      Left = 3
      Top = 194
      Width = 118
      Height = 17
      Caption = 'Todas as Empresas'
      TabOrder = 7
      OnClick = CkBTodasEmpresasClick
    end
    object CLBEmpresas: TCheckListBox
      Left = 1
      Top = 228
      Width = 409
      Height = 40
      Align = alBottom
      Columns = 1
      ItemHeight = 13
      TabOrder = 8
    end
    object DEDataLancIni: TDateEdit
      Left = 131
      Top = 129
      Width = 88
      Height = 21
      NumGlyphs = 2
      TabOrder = 3
    end
    object DEDataLancFim: TDateEdit
      Left = 230
      Top = 129
      Width = 88
      Height = 21
      NumGlyphs = 2
      TabOrder = 4
    end
    object DEDataChIni: TDateEdit
      Left = 4
      Top = 169
      Width = 88
      Height = 21
      NumGlyphs = 2
      TabOrder = 5
    end
    object DEDataChFim: TDateEdit
      Left = 107
      Top = 169
      Width = 88
      Height = 21
      NumGlyphs = 2
      TabOrder = 6
    end
    object RGOrdena: TRadioGroup
      Left = 1
      Top = 1
      Width = 409
      Height = 35
      Align = alTop
      Caption = '  Ordenar por :  '
      Columns = 3
      ItemIndex = 0
      Items.Strings = (
        'Data Lan'#231'amento'
        'N'#176' Cheque'
        'Data Cheque')
      TabOrder = 11
    end
    object rgFiltrar: TRadioGroup
      Left = 1
      Top = 37
      Width = 409
      Height = 35
      Caption = '  Filtrar por :  '
      Columns = 3
      ItemIndex = 0
      Items.Strings = (
        'Todos'
        'N'#227'o Cancelados'
        'Cancelados')
      TabOrder = 12
    end
  end
  inherited QPesquisa: TQuery
    SQL.Strings = (
      
        'Select  Cont_Corr_Descricao as Conta, Lanc_Conta as CodConta,Lan' +
        'c_Cheque as Cheque,Sum(Lanc_Valor + Lanc_JurosMulta) as Entrada ' +
        ', 0.0 as saida, Lanc_Nominal as Nominal,Lanc_Data as Data'
      
        'from Contacorrente inner join (Lancamento left join PlanoContas ' +
        'on PlanoContas.Codigo = Lanc_Plano ) on Cont_Corr_Codigo = Lanc_' +
        'Conta'
      ''
      'Where (Lanc_Cheque <> "")'
      'And  (PlanoContas.Natureza = '#39'Entrada'#39')'
      ''
      ''
      
        'Group By Cont_Corr_Descricao,Lanc_Conta,Lanc_Cheque,Lanc_Data,La' +
        'nc_Nominal'
      ''
      ''
      ''
      'union'
      ''
      
        'Select  Cont_Corr_Descricao as Conta, Lanc_Conta as CodConta,Lan' +
        'c_Cheque as Cheque,0.0 as Entrada, Sum(Lanc_Valor + Lanc_JurosMu' +
        'lta) as Saida ,Lanc_Nominal as Nominal,Lanc_Data as Data'
      ''
      
        'from Contacorrente inner join (Lancamento left join PlanoContas ' +
        'on PlanoContas.Codigo = Lanc_Plano ) on Cont_Corr_Codigo = Lanc_' +
        'Conta'
      ''
      'Where (Lanc_Cheque <> "")'
      ''
      'And  PlanoContas.Natureza = '#39'Saida'#39
      ''
      ''
      
        'Group By Cont_Corr_Descricao,Lanc_Conta,Lanc_Cheque,Lanc_Data,La' +
        'nc_Nominal'
      ''
      ''
      '')
    Left = 112
    Top = 201
  end
  inherited DSPesquisa: TDataSource
    DataSet = QChequeEmitido
    Left = 144
    Top = 201
  end
  object DSConta: TDataSource
    DataSet = DMFinanceiro.QConta
    Left = 264
    Top = 49
  end
  object QChequeEmitido: TQuery
    AfterPost = QChequeEmitidoAfterPost
    DatabaseName = 'baseLocal'
    RequestLive = True
    SQL.Strings = (
      'Select * from ChequeEmitido')
    Left = 216
    Top = 201
  end
  object Qaux: TQuery
    DatabaseName = 'base'
    Left = 344
    Top = 184
  end
end
